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ECUACIONES 
DIFERENCIALES: 


170 IF I$="F" THEN PRINT_AT 8,2 
5; “FASES”: INPUT "EX"; EX pate 
Y: CLS: LEFT FASE=1. PLOr ,88: 

BORDER 1: p DRAU 255,8: PLOT 128,0: DAÚa,a 










Se E PAPER 0: INK 





Une ecu o te a (180 LET T=0; IF 

3 ación diferencia: de 20 e 15="I1" THEN LET: 

ordentor” ta dx UAB ht ER PRINT AT 3,16) "IMPRIMIR" 
.1,9 





100 ¿INPUT 


13 
190 LET X2A=UAL Fs: REM 





en funcion 
¿TS 
















¿120 INPUT “condi csoñes iniciale 208 _LET DT=VAL Ts: LET X2=UAL F 
E A 5: LET_X=X4+X1%DT+(45X2-X2A) *DT=D 
ecu : PRINTS Desea el arar; 7/8: LET X1=X1+(32X2-X2A)/B4DT; - 
108 de x en fun- cion del tiempo T=T+DT: LET X2A=Xx2 
0, “en el espscio de las fases 210 REM 
o stto la impre- sion de Los va 
Llores? " Marque G para grafico 5 
dle? ra fases 0 I para impresio E 
140 LET Mo INKEYS: IF i5="" THE 220 IF U9sE THEN PLOT X+EX+1285 
N GO TÓ 6 15EU+8 4 
150 IF e +"F" AND i54 " AND 230 j70 IMP THEN PRINT T¡TAB 5;X 
i5ocT" THEN PRINT AT 8,1618"? ¡TAB 20;X1 
: 60 40 240 IF GRA THEN LET TI=TT+ET+DT 
qEs0 SLEr GRA LET_IMP=A: PLOT TT,X+EX4+88: IF TT>=253 TH 
3 ES IT EN CLS : DRA 4,175: DRA 0,-B8: 





TT= LE F DRAW 2550: LET TT=0 
e cL5 258 60 TO 200 
RA 255 





A El 
E ES AD O 
pea B,175: eL5y 2,82 





Es un programa para aproximar la solucion de una ecuacion 
diferencial de segundo orden, F(x,x,x,t)=0, donde *" puede ponerse en 
funcion del resto de los parametros, X=F(x,x*x',t) y doy Xx» Mo. El 
metodo es muy simple: desarrollo x en una serie de Taylor alrededor 
de 0: 


Rx AL) ==, +xp ALIS (od OEA) (24 (ROAD) O SF, ¿M0 1 0) 

y (Ot )=x] +xg (at) exo (atx2)/2 x= (0d -X(0t)/0t 

x (at) Ex Oi (A) AIR Ó 

Obtenido x(4t), x'(4t), hago un desarrollo identico tomando como 


origen 4t, y asi sucesivamente. Esta aproximacion es correcta hasta 
el segundo orden en 5t. 


Ejemplo: 
x2="-x-0,. 1x1" 
4t="0.02 


xo=60, xp9=0 
rango de 
rango de »*=1 z 
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B 
2B7EFE?S2502 1503185 2 
¿QUES 234E3SO02S7ERE 
dESCO714P1ISPICDOCADEDS 
OcoO1socScDBUI0CDEz4oc 


















Rs (VAL ASI2)I+. 
si EA GO0TO 20 
SUARTIO Y PROG. l 


rr 


Mun la 






Es un programa con codigo de 
maquina para mover el display 
cruzando la pantalla en 
cualquiera de las 8 direcciones 
cardinales. 

Entre el listado 1, tecleando 
los 126 caracteres en la 
sentencia REM de la linea 1. 
Corra el programa y el codigo de: 
maquina sera pokeado por la 
sentencia REM . 

Deletee luego de la linea 10 a 
la 70 y reemplacelas por la 
rurina de demostracion del 
listado 2. 

Si entra el comando "GO TO 10" 
la versatilidad del programa 
SCROLL :sera demostrada. 


3 2% 
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SO. INK 7: LET 
; LET AS 
T Có="k 34%: LET 
60 BORDER _ 1: PA 
70 PRINT_ INK 7 
o. GALAXIA_20900 
50 PRINT AT_13 
NTAJE LO POSEE 
NE" EN”; Ñ 
SQ0 PRINT A 
se cualquier 


101 PRINT AT 

flechas del cu 

ave, cuando tie 

la mira la nave 

Ss o (CERO1para 
TA 


















e B,14;B$5,AT 
IF INKEYS$="0" THEN GO TO 45 





a 

INK 1, F 
ivacion=";5;: 
. Tiempoz=",T 


BEEP .QUe2s,6 
FLASH 1;AT 10 


Puntos=" ¡5 
GO SUB 600 
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NOTA GRAFICA: 


Fara dibujar la nave: GRAPHICS 

"AB". Los graficos de E$ son! 

GRAPHICS "D E", y los de Cé+ son 
GRAPHICS "F 6". 


15. BORDER RND=" 
NEXT U; NEXT » 





po RESTORE 680: FOR x=0 TO_SS 
NEXT P a: PORKE USR “a“+x,a: NEXT 


598 60 TO 352 





600 FOR Xx=0 TO : BORDE 
R_2:.BORDER 6: N INPUT ; F 
LASH 1; "MAXIMA P NTUACION: *; FLA 
3 Deer iDE tu nombre" ímax.39 1 
> 2trasi"; LINES bea 
cla IF LEN n$>=10 THEN GO TO 68 





VORTICE , 
















A 


O 
ARA 





Ie 


Es un programa que dibuja 
una figura geometrica 
regular, la rota y la 
disminuye de tamaño. 
Tiene dos partes: una 
parte para dibujar 
cualquier paligono, y 
otra especificamente para 
triangulos. 





Ejemplo: <= e 
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TS 1000-1500 






















SOBLET M=ABS UY 
72 LET N=ABS U 


IF_M>N THEN, GOT 
REM_DIBUJE BORDES COS 


LET D2xX=0 
40 FAST Ej a 27 pl 
50 GOSsuB 2992 LET M=ABS 


7 
100 LET HOLEX=INT (RND+30) 
110 LET HOLEY=IMT (RND=18) + 
NT: (RND=30) 

NT AANDS18) Di 
1 OLEÉ AND TEEY=HOLE 
Y THEN_GOTO 128 

150 LET HITS=0 

190 SLO4 

200 PRINT AT HOLEY,HOLE 
210 PRINT AT_TEEY,TEEX; 
300. REM CURUA PPAL. 

310 GOSUB 3108 

320 PRINT "DIRECCION?" 
350 .INPUT XD 

340 'GOSUB 3098 

350 1F XD<2D OR XD>12 THEN GOTO 


360 PRINT 300 22; XD 


LET N=ABS y x 

LET S5=INT _(M/2) 

FOR_1=8 TO “M 

IF P THEN_PLOT A,B 
E FP THEN UNPLOT A,B 






LE A=A+D1X 

LET_B=B+D1Y 

NEXT_I 

LET A=A+D2X 

LET_B=B4+D2Y 

NEXT_1 

RETURN 

a ER PRUEBE NUEVA UBICACION 


LET ERROR=1(C<2 OR C>62 OR D 
¿5 OR _D>42) 
1520 IF _NOT_ERROR THEN. RETURN 
1530 PRINT AT _21,0,"DENTRO DE TE 
RRENO ESCABROSO-GOLPE PENAL" 
LET_ HITS=HITS+1 
IF (C<2 THEN c=2 
5 0>62_ THEN "LET_C=62 

D:5_ THEN LET_D=5 
16 D>42 THEN LET D=42 
RETURN 
no DIBUJE LIMITES VERDES 
LE 
B55ue a 2108 
ago S100 
LET x=0 
Y cOsub 2208 
LET X 
GO5uUB 2208 








5599 RES 1500 
598 LET P= 

500 Eb5ub 1000 
619 PRINT_AT TEEY 
520 LET TEEY=INT 





ES LINER 
“830 LET TEEX=INT_( 
640 LET_HITS=HITS 
IF TEEX=HOLEX 

LA LINER"Y: 


43 












RETURN 
REM LIMPIE APUNTES 
PRINT AT 23.0 


20,2, 
E 


REM LIMPIE LINEAR 20 
PRINT AT 20,8 
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TK-83+ TK-85 TS 1000/1500 





A 


Vd. debe ingeniarselas para alcanzar la verde, y luego 
colocar la pelota. 

El hoyo es representado por INVERSE"0", mientras que la 
pelota se reoresenta con INVERSE"X", 

Debe entrar la longitud y direccion requerida para 
entrarla en el hoyo. 


































19 IF HOLEX<z THEN LET_HMULEx=2 
20 IF HOLEX>22 THEN LET HOLEx= 


430 PRINT AT HOLEY,HOLEX-2,"PLO 


Q RETURN 
0 REM MENSAJES ABSURDOS 
57 IF HITS=1 THEN PRINT "-HACE 


ñas 
"THEN PRINT "-N0 mM 


a” ir? HITS:<5 THEN GOTO_3590 

0 IF HITS<B THEN PRINT "-SOLO 
FAVORABLE” 

bo HITS>7 THEN PRINT "-REPU 
NTE. 

Q PRINT 

RETURN 

DE INSTRUCCIONES 


ERAN TAB 7; “LANZAMIENTO DE 
PRINT ,,"QUIERE INSTRUCCION 













THEN E 


AOS 






A CHA BURLADO," 
de TAPRTETE UNA TECLA 
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ARITMETICA BINARIA Y COMPUTADORAS 


o 5 5 5 5 5 5 5 5 


Las computadoras pueden realmente tratar solo con dos 
numeros, uno y cero. Esto es asi porque ellas son una larga 
roleccion de switches cuya disposicion es muy particular. 


Los switches pueden estar prendidos (on) o apagados (off). 
Si un switch esta prendido puede representar toda clase de cosas 
tales como, "verdadero", "si", etc. si se lo considera en 
posicion de apagado representara, "falso", "no", etc.. 
Remitiendonos a los numeros, usualmente representan a dos 
numeros: uno y cero. Es decir si un switch puede estar solamente 
prendido o apagado, entonces no hay otros numeros que puedan ser 
representados. No obstante existe una forma de representar todos 
los restantes numeros, usando mas de un switch como una serie de 
UNOs y ceros. 


El sistema que representa una cantidad a traves de una serie 
de unos y ceros es llamado "sistema binario”. 


Esto suena muy tecnico y delicado si uno trata de pensar en 
el sistema decimal mientras maneja numeros binarios, pero es 
realmente un sistema numerico muy simple. 


En el sistema decimal (base 10) hay diez digitos, pero no un 
simbolo simple para representar 10. 


Para representar el diez tenemos que usar dos de los 
simbolos anteriores: el "1" y el "0", colocandolos juntos para 
formar "10". 


El sistema decimal esta basado en "potencias" de diez tales 
como: 10*10 (10%*2), 10*10x*10 (10%*3) y 10*10*10*10 (104) 


Otras son las potencias menores: 10**1 y 10%x*x0 que dan 10 y 
1 respectivamente. Nuestros numeros estan formados por 
combinaciones de algunas de estas potencias. 


Veamos como es interpretado elnumero 2114 en el sistema 
decimal: 


Pot. de 10: 10%*3 10%**2 10**1 10%x0 


Simb. usado: 2 1 1 4 
Lo cual significa: 2X*10**3+110%*2+1*1081+4*10*x0, 


NOTA: ** indica potenciacion. 


El sistema binarip trabaja exactamente de la misma forma 
haciendo uso de las potencias de dos en lugar de las potencias de 
diez. Si estamos trabajando en dicho sistema no podriamos 
representar el numero "2114" dado que no existen los simbolos "2" 

y "4", es decir, estamos restringidos a usar solamente ceros y 
unos. El mumero 10011 en binario significa! 
RA A O A A 
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pot. de dos:2xX4 2%%3 2x2 2x1 2%*0 
equiv. dec.: 16 8 4 2 1 


simb. a usar: 1 o o 1 1 


cuyo significado es: 1*2%**44+0 2434042424124 14+12% *0. 


Si realizamos esta suma obtenemos el valor 19 en el sistema 
decimal. 


El sistema binario presenta dificultades para trabajarlo, 
pues los numeros son representados con muchos digitos es muy 
facil equivocarse al escribirlos. 


Cada uno de esos digitos binarios se denomina BIT (Binary 
digIT). Cada switch puede tener un bit, agrupandoselos 
generalmente de a ocho conformando un BYTE. Los 64 lotes de 1024 
BYTES de memoria en el enteramente expandido TS1000 y ZX81 
contiene 


64+(1.024+8)=5.240.288 de estos switches. 


Estos solo forman la "random acces memory", pero hay muchos 
mas de estos switches en otras partes de la computadora. Por que 
pensar en 10247. Por que no 100, un numero mas simple”?. La 
respuesta esta pregunta esta relacionada con la aritmetica 
binaria. Fundamentalmente, muchos los mumeros que tienen sentido 
en computacion se relacionan con este sistema de numeracion. 





Normalmente pensamos en nuestro familiar sistema decimal y 
en numeros tales como 100 o 10.000, como numeros puros y pues son 
potencias exactas de 10. En el sistema binario hay tambien 
numeros puros, pero expresados en potencias exactas de 2 y no de 
10. 


Entonces, para la computadora, un numero exacto es 1024 y no 
1000, ya que el primero es potencia de 2 y el segundo de 10. 


La razon por la cual un byte (8 bits) no puede almacenar mas 


que 255, es que si los ocho switches estan prendidos, el valor 
representado es: 


Nro. bit: 8 Ta 6 5 4 3 2 1 
Pot. dos: 2x7 2é46 25 244 24% 242 21 20 
valor 2 128 64 32 16 8 4 2 1 
cuva suma es el valor 255 en decimal. Sumando un unoa este valor 


resultara un "acarreo" tal como cuando al sumar 1 a 9.999 genera 
un acarreo. 











11111111 9.999 
+ 1 SÍ 1 
1 0000 o 
e 5 5  —__ K<4< 


SINTAX/ODctubre 3d 





——— a 5 
ARITMETICA RKINARIA Y COMPUTADORAS 





En ambos casos el acarreo significa que hay un ulgito extra 
en el resultado.-Un byte de 8 bits no puede contener un noveno 
bit, este bit extra provoca lo que se denomina "overflow"”. 


Usando dos bytes por numero, podemos tener 65.336 si todos 
los switches estan en on. 


ler. byte: 11111111 
2do. byte: 11111111 


Pero el decimosexto bit tiene un especial proposito: 
representar el signo mas o el menos. Solamente siete de los 
digitos pueden ser usados para representar el numero y entonces, 
solamente 32.767 puede ser almacenado. Esto muestra una seria 
reduccion pero no implica un desperdicio del sistema. Antes, el 
rango de numeros almacenables iba de O a 65.536 y ahora, usando 
el octavo bit del segundo byte como bit de signo, el rango va 
desde -32.767, a traves de O, hasta 32.766. 


64K es el numero maximo de direcciones de memoria que el 
procesador 780 puede tratar. Nuestras computadoras tienen un set 
de caracteres con 255 codigos en el. Ese rango de O a 255 da un 
total de 256 numeros, numero que es potencia de dos. Guardar uno 
cualquiera de tales numeros ocupa tan solo un byte. 


Las cadenas de caracteres (strings) pueden tener, COMO 
maximo, 256 caracteres, por las mismas razones. 















































TS SPECTRUM 
1 REM CE-GRAF 
NASCO, M_O_ 193534 
s 23746<>0 THEN GO TO 
100 
eN ido 3205: LET vU=635206: R 
o STORE DD a,b,Cc,.d,6,f DATA 
1 rs Ms E: 14,15 
o L '¿£2100503500237cfe78 
Draco dsfaderrcobrfdasfroeso 
Sfbcd dJbrfcbbrdsfrfarfrdararl 
eseza ETB SO”" 
o EN FO JLEN UA -1 2TEA: 
POKE ¿/AL_UBILNI +FUAL Us (n+ 1) 
18 MNEXT_n 
40 ZE _ USR_ 53213 
su 352585_TO 63263: POKE 
4 3+5,255-PEERKR (a+16): 
» S SS: NEXT _a 
a WNPUT "ENTRE Fx ra«x 
= Fixidi= if: 1 
E 2: “"¡;ex” “Escata en 
eS 3 15 LET eu=eu 
Si2 LET u=24576 pel] 
FOR z=0 TO 2 FOR ¡=8 TQ”? 
i=j+54+ TO ¡+54%2+56 STEP 
E R ¿= a T 31 LET x=ex*1ik-15 
7 
120, LET Y=ti—561eygo LET in=ENT 
BCE” ETS “2: LET pa=S+* 
INT AL EM: LPO Us,Pa+in: LET Uu= 
y 1 MEXT? Ko MET NEXT, JJ: NEX 
z 
a BEEP .1,% PRUSE a QuT 25 
250 
a T 2 PE a 
1] 1] AGE RA 1] 
R URN 
ja] Ss TO 3SOZLS:  POKE 
43 R URN 
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Son dos programas 
hermanos destinados a un 
mismo fini graficar 
funciones de dos 
variables. 


3D da una representacion 
tridimensional de la 
funcion (en perspectiva 
caballera). Sirve 
primoldialmente para 
graficar superficies de 
variacion suave, como 
polimomios, gaussianas, 
etc.. 


Ejemplo: 


F(X, y) =EXP (-:x—y Ay) 
» rango de x=2 
. rango de y=2 


NOTA: en todo lugar de 
un programa donde haya 
que evaluar xP2, ATI, 
conviene escribir x%*x, 
AXAXA. El motivo, es que 
para evaluar a una 
potencia, la maquina 
ejecutas 

. ATB=EXP (Bx*Ln (4)), 
cuya evaluacion es mucha 
mas lenta. 


CC da una representacion 
codificada en color 
(estilo fotografia 
sintetica o 

centell ogramáh del valor 
de Fíx,y). Debido a que 
solo hay disponibles 8 
colores, este programa 
no da demasiada 
informacion sobre 
gaussianas o polinomios. 
Sirve mas para curvas de 
variacion rapida cuya 
representacion en 3D 
seria confusa. 
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Ejemplo: 

- Fix, y) 6% 
(14 (COS (x xy Xy) ) 
variacion de x=5 
variacion de y=5 





Para graficar una 
familia de curvas 
U(x,y)=cte., 


Fix, y)=3.6% 
(1+C0S (U(x, y)) 


donde U(x,y)=x*x+y*y 
EX AX Y Ry 
SN 
SAY Y HAY 







































































18 REM GRAF 
MAGNASCO, M.O. 1954 
20 PAPER: INK_ 7: CLS.'": PRINT 
22" Este es un programa destina 
do agraficar Funciones de dos va 
ria-=bles."”" Ud debera ingresar 
La funcion, (que wvariara solo en 
£re 0 yo Y dos parametros de 
escala, que definen cual es el r 
ango-: que tomaran x e ue." 
30 OVER 1: INR 4: PLOT 96,165: 
PRAWV_ 40,0 DRALWL 24,406: CRA. -40,0 
DRAL)_0,-40: PLOT_ 90,36: DRAW_S 
S,0: DRAW_-4,2: PLOT 116,5: DRA 
0,380: DRALW_-2,-4 
35 PRINT AT 15,12; PAPER_1;“ 
"AT 1842)” ¡ATA17,183.0 
APS O A 
40_TINK SS PBRINTOSAT 1979 
AT _ 16,18;"eXx":AT 19,183 "e 
1,156; -eys 
59. IMPUT: 1 Entre” FX Y) 
=f<=1_J3 Fixadd=" f% 
0" TNPUT Escala en 
cala en y “"¿ey: LET_ez=45 
=exr/75 LET Eey=eYrYS 
3100 OUBEREBENICGLS 
110 TO¡M STEP. -5S: LET 
xa= a=j%.6: INVERSE 1 
FO a STEP S 
120 S) rex: LET y=tia-" 
31 E L f£%: ET_xP=i+.65 
$3: +.5% PLOT_xa,ua 
DER == E VERSE 6: L 
ET Xx a P EXT E PLO 
T_ xP 
13u a 
== 
=== 





























Usted posee un avion 
cargado con bombas y 
ellas seran 
utilizadas para 
destruir edificios. 
Los edificios se 
destruyen por 
completo si las 
bombas lo tocan en 
la cimaj si caen mas 
abajo el pedazo de 
arriba no queda 
destruido por lo que 
debera dispararle de 
nuevo. Pero debe 
cuidarse de no 
malgastarlas pues 
las que posee son 
pocas. El avion 
parte de la linea 
uno y bajara a la 
siguiente cada vez 
que termine de 
recorrer una. Para 
no estrellarlo 
contra un edificio 
Ud. tratara de 
destruir primero los 
mas altos. El juego 
termina cuando logra 
destruir todos los 
edificios y 
aterrizar el avion. 


ES 


Fara entrar el codigo 


de maquina tipee 
primero el siguiente 
programa cargador: 


ME 





En el REM de este 
programa debera 
insertar 307 veces un 
caracter cualquiera, 
por ejemplo O (cero). 


PA 





ES 











O CI CC CI CI CO 
CC de LP 50 LN + 






15 
15 
15 
15 
í5 
i5 
15 
15 
15 
1 

i 





A E e PA CA 


Mn Don 
JR a MO SN CNN 





cuen 






Pm 
7 


20D 
mn 


Prat 
tn a 


ARMA 


e a 10 fe PL Es A de 5 LA dC e o o ps DP E e de E DO e A Ma 
AS 


cpm 


cen 


PR EMN 
5 MO A ED $ O EN E PO 
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1 





AL 
META TANTET 
Aa US MI DIOSA 








ADS 1) 
MOSES SOBBAAns 





ma 
Ae 









a on ME un 
e tul Dr dt A A 6 A 
UA EA NT 








En AO aaa 
MAMADA ada 
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COSTOS DE MEMORIA DE TS 1000/1500 
| 


1 EYTE 





Todos los caracteres graficos desde el teclado se usan 
dentro de strings. Todas las palabras que se encuentran en el 
teclado y los simbolos, sim importar cuantos caracteres 
contengan, son entradas entre comillas. 

Los corchetes y los simbolos matematicos tales como A 
140, 0/0, 0 y "x**" ocupan un byte cada uno. Todos los signos de 
puntuacion cuestan un byte pero la coma cuando es usada como un 
separador de impresion, cuesta 15 bytes de la memoria dedicada a 
la pantalla en el archivo de display. 

NOT, usado en una instruccion condicional ocupa un byte. 


6 BYTES 


Todas las siguientes lineas de programa usan 6 bytes cada 


unas 
10 CLS 10 CLEAR 
10 CONT 10 COPY 
10 FAST 10 SLOW 
10 LLIST 10 LIST 
10 LPRINT 10 PRINT 
10 REM 10 RAND 
10 RETURN 10 SCROLL 
10 STOF 

7_EBYTES 


Estas son versiones principalmente de lineas de 6 bytes las 
cuales pueden aparacer con caracteres extras. La linea que 
imprime FI a pesar que es una funcion que se representa gn dos 
caracteres ocupa solamente un byte de programa. 


10 INPUT A 10 REM A 
10 PRINT A 10 LPRINT A 
10 PRINT FI 10 FPRINT RDN 


La ultima limea es usada frecuentemente con otras funciones 
y sera tratada con mas cuidado en la seccion que se refiere a 18 
BYTES. 


8 BYTES 


10 PRINT A$ 10 INPUT As 
10 PRINT ""  .10"LET A=B 
10 FRINT CHR$ A 
10 FPRINT STR$ A 


Esta ultima linea muestra que tenemos un costo adicional de 
un byte para la funcion CHR$. 
a E 
455 SINTAX/Octubre 





¡'<-—— a 


COSTOS DE MEMORIA DE TS1000/1500 
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9 BYTES 


10 PRINT LEN A$ 10 PRINT VAL As$ 


10 LPRINT "A" 10 PRINT CODE AS 
10 LET A=B 10 PRINT "x*" 
10 PRINT A 


Por esto podemos ver que LEN, VAL, CODE ocupan un byte cada 
una. 


10 BYTES 


10 LET A$=INKEYS 
AND B=1 

como parte de IF/THEN 
OR B>=1 


11 BYTES 
A 






10 LET A$= 
10 PRINT 


(string vacio) 


Se puede ver que "3" cuesta un byte 


12 BYTES 


10 LET A$="A" 
TAB (ver 20 BYTES) 


13 BYTES 


10 PAUSE 
pero, 


10 PAUSE 10 cuesta 14 bytes 
10 PAUSE 100 cuesta 15 bytes 
10 PAUSE 1000 cuesta 16 bytes 


10 GO TO 1 
perO, 


10 60 TO 10 cuesta 14 bytes 
10 60 TO 100 cuesta 15 bytes 


€_AXA o 
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COSTOS DE MEMORIA DE TS1000/1500 


14 BYTES 


10 PRINT STR$ 1 


Este punto es importante para señalar un interesante factor. 
Nuestras computadoras permitiran uso de nombres de variables n 
las lineas programas, siendo que otras computadoras insisten en 
conocer primero el valor. Los usuarios de TS 1000 pueden indicar 
60 TO A Oo 60 SUB X y la computadola obedecera el comando sin 
importarle cuando conocera el valor de esas variables. Bajo el 
encabezamiento "8 BYTES" hay un ejemplo similar. La diferencia 
es que esa linea tiene un nombre de variable y no un numero. El 
ahorro de memoria es de 6 bytes en 14 bytes, 43%. Esto es de 
veras valioso y su uso se vera cuando por diferentes 
circunstancias los costos de memoria sean investigados. 


15 BYTES 


10 LET A=1 

pero, 
10 LET A=10 cuesta 16 bytes 
10 LET A=100 cuesta 17 bytes 
10 LET A=1.1 cuesta 17 bytes 


10, LET A=B cuesta 9 bytes. 


Entonces el beneficio de usar nombres de variables es mejor 
que usar numeros en un 40%. 


16 BYTES 


10 LET A=SIN 1 

El costo es el mismo para las funciones: COS, TAN, ASN, ACS, 
ATN, INT, SGN, ABS, SQR, LN y EXP. Usando nombres de variables 
tambien se reducen los costos. 


10 LET A= SIN A usa 10 bytes 


10 DIM A(1) usa 16 bytes peros 

10 DIM A(10) usa 17 bytes 

10 DIM A(100) usa 18 bytes 

10 DIM A(1,1)> usa 24 bytes de los cuales 8 bytes son para 


Jal 
Compare esto con lo siguiente: 


10 DIM (A) usa 10 bytes 
10 DIM (A,B) usa 12 bytes 


" Z a 
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Cuando se trabaja en un programa con arreglos permite ocupar 
cinco bytes por numero si se trata de dimensiones simples. En 
arreglos multidimensionales se realiza el producto de los numeros 
entre parentesis y al resultado se lo multiplica por cinco. Esta 
cantidad es el numero de bytes que ocupara el arreglo en la zona 
de almacenamiento de variables. 


10 DIM A(5,10) ocupa 256 bytes para el arreglo A 


10 PEEK (1) 

peros 
10 PRINT PEEK (10) usa 17 bytes 
10 PRINT FEEK (100) usa 18 bytes 


El tamaño de la direccion mas usual que aparece en un PEEK 
es de la forma! 


10 PRINT PEEK (10000) y usa 20 bytes. 


17 BYTES 


10 DIM A$(1) usa un byte mas que 

10 DIM A(1) entonces todos los arreglos de tipo caracter 
usan byte mas que los arreglos numericos. Hay una diferencia 
importante entre los dos tipos de arreglos, los arreglos string 
solo ocupan un byte por caracter y no cinco. 


10 DIM A$(5,10) ocupa 50 bytes 


18 BYTES 


10 FRINT INT (RND*9) 


Esta es la forma mas usual de usar la funcion RND. Aca 
tambien si se usan nombres de variables se reduce el costo. 


10 FRINT INT (RND X) usa solamente 12 bytes. 


10 PRINT TAB 1;3"A" 


pero la cantidad de bytes que usa TAB depende de la posicion 
donde se quikbra imprimir. El costo afecta al archivo del display 
y no al area de memoria donde se almacenan las lineas de 
programa. 


10 FPRINT TAB X3"A" usa solo 12 bytes. 


Como el costo de: 


x€_-_zz_z__ _A—_—_ _______ _ ______m_ »>_>P_o. 
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10 FRINT 
bytes. 


es 9 bytes, el de "TAB X3" sera solamente de 3 


19 BYTES 


El costo de subrutinas es de 19 bytes como minimo. 
160TO09 cuesta 13 bytes 

9 GO SUB 5 

S RETURN 


todo esto cuesta 32 bytes por lo tanto la subrutina ocupa 19 
bytes. 


21 BYTES 


10 POKE 1,1 
pero, 


10 POKFE 10,1 cuesta 22 bytes 
10 POKE 10000,1 cuesta 25 bytes 
10 FOKE 10000,10 cuesta 26 bytes 
10 POKE A,A cuesta 9 bytes 


10 FLOT 1,1 
pero, 
10 PLOT 1,10 cuesta 22 bytes 
10 PLOT 1,40 cuesta 23 bytes 
10 FLOT A,A cuesta 9 bytes 
Todos los comandos UNFPLOT tienen el mismo costo. Una o dos 


posiciones de ploteo le ocupan 1 byte al archivo de display por 
cada posicion impresa. 





BYTES 


10 LET A=2*2 cuestan 23 bytes pero como 
10 LET A=2 cuesta 15 


el costo del numero y el signo de multiplicacion es de 8 bytes. 
Un metodo alternativo para calcular raices cuadradas cuesta la 
misma cantidad de memoria: 


10 LET A=2x*xe2 

10 LET A=-2*-2 cuesta 25 bytes y 

10 LET A=-2%*2 se reduce a 24 bytes pero da respuesta 
incorrecta!!! y 
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Todos los numeros al cuadrado son positivos y la 
computadora da resultado negativo. Esto significa una falla en el 
lenguaje. 

Si usted esta escribiendo un programa donde calcula 
potencias cuadradas le sera necesario incluir la funcion ABS en 
todas las lineas que incluyen a funcion "**". 


10 FOR J=1 TO 9 cuesta 23 bytes pero, 
10 FOR J=1 TO 10 cuesta 24 bytes 
10 FOR J=1 TO 9 STEP 2 cuesta 31 bytes pues "STEP 2" cuesta B 


El costo basico del loop FOR/NEXT es: 


10 FOR J=1 TO 9 
30 bytes 


20 NEXT 3 
24 BYTES 


10 IF A=1 THEN GO TO 9 pero 
10 IF A=1 THEN GO TO 10 cuesta 25 bytes. 


El uso de "<=", "<%, ">" y "<>" en cualquier linea cuestan 
siempre los mismo. 


10 IF A=1 OR B<2 THEN GO TO 9 cuesta 34 bytes pues "OR B<2" 
cuesta 10, 


10 IF NOT A=1 THEN GO TO 9 cuesta 25 bytes pues "NOT" ocupa 
tan solo 1 byte. 


10 IF A=1 THEN GO SUB 9 tambien cuesta 24 bytes 


pero ella incluira al menos una linea extra 60 TD para saltar 
esta subrutina. Si todas las subrutinas estan al final del 
programa la sentencia STOP hara que se reduzca su costo en unos 6 
bytes. 


Nuestras computadoras aceptaran nombres de variables tanto en 


el enunciado GO TO como en el GO SUR y seran guardadas como las 
tiene. 


IMPRIMIENDO CON O SIN FORMATOS 


FRINT_AT 
10 PRINT "A" cuesta basicamente 9 bytes 


10 PRINT AT 1,15"A” cuesta 26 bytes pues "AT 1,13" ocupa 17, 
la mayoria de estos para los dos numeros. 


10 PRINT AT L,L53"A” cuesta solamente 14 bytes 


Cada posición de impresion a lo largo de una linea cuesta un byte 

extra al archivo del display. 
A 
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5 5 5 


TAR 


10 FRINT TAB 15”A" cuesta 18 bytes pues "TAB 153" ocupa 9 
bytes 


10 PRINT TAB X3"A" cuesta solamente 12 bytes del espacio para 
programa. 


COMPARANDO EL COSTO DEL PRINT AT CON EL PRINT VACIO 





10 PRINT AT 4,1:"A" cuesta 26 bytes pero, 


10 PRINT 
11 PRINT cuesta 
12 PRINT 27 bytes 


13 PRINT "A" 


El precio de usar enunciados PRINT vacios para espaciar un texto 
es barato cuando se quiere separar una o dos lineas. Para dejar 
tres o mas lineas blanco es mas conveniente usar PRINT AT pues 
es de menor costo. 


10 PRINT 
cuesta 24 bytes 
11 PRINT TAB S5;"A" 





mientras que; 
10 PRINT AT 2,55A" cuesta 26 bytes. 


10 PRINT AT X,Y3"A" cuesta solamente 14 bytes para 
almacenario en el area de programa. 


STRING 


10 PRINT A$ cuesta basicamente 8 bytes 

10 PRINT As$( TO 9) cuesta 18 bytes pues "( TO 9)" ocupa 10 
bytes 

10 FRINT A$( TO 10) cuesta 9 bytes pues hay un caracter mas 

10 PRINT A$(1 TO 9) ocupan 25 bytes de los.cuales 17 son el 
costo de "(1 TO 9)" 


La ultima alternativa! 


10 PRINT A$(1 TO ) cuesta 18 bytes tal como Ud. se lo 
imagimaba 


10 FRINT A$(A TO B) cuesta 13 bytes 


comparados con los 25 de la linea que usa directamente valores. 


q _  _ »——_—_ | 
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DATA 0,24,1585,1256.50,50, 
FOR 1=0 TO 7 

READ x= 
¿POKRE USA "a +t,x 





mA 
m 
0) 
ps 
tm 
77) 
mA 
ro 





AD 
24 POKE USR "b"+t,x 
26 NEXT _t 





30 PRINT “x*+33+:+++ES5CARAB 
AXLFAERERAESS 

31 PRINT 

32 PRINT "Usted es ahora un 
carabajo Y la T/S 2065 trata 





de cercario ud. se movera con 








s teclas " 

33 PRINT 

34 PRINT PAPER E (ARRIBA) 

Xx ABAJO)" SPRINT PRINT_PAR 

7 Y (IZGUIERDA) L ¡(DERECH 
q. É 

40 PRINT PRINT ". Si queda 
trapado o si trata de Pasar 
r encima de uno de Los obstacul 
os que le pone la T/S5 20683 mor 
ira escuchando su propia march 
a funebre." 

42 PRINT 

43 PRINT ” BUENA SUERTE NL. 

45 PRINT AT 20, a; FLASH 1;"* P 
ulse cualquier tecla para com 
anzar 

57 PAUSE O 

58 BORDER 4 

59 LET hs= 

60 CL5S 

70 LET x=10 

75 LET y=15 

84 LET s=0: PRINT AT 21,0;:"Fun 

¿S 





106_FOR f=1 TO 
PARFER 5: an a 
To 


INK 







PRINT 


PRI, 
THEN LET hs 
INT (RND+- 
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13115 (22 YI cs" "THE 
(x+1,Yy) <>" THE 
EE THE 
1y-15 THE 
AND >-2 THEN 
AND 9:22 THEN 
"4" AND x>2 THEN 
"% AND x<19 THEN 


) 30 
250_LET desais 
TO_170 
259 G0 TO 210 


IF d4=10 THEN 60 














1009 PRINT-AT X» LET_ u=y-4 
dul" "ITHEN 6 
TO_2000 1 ds 
1001 60 TO 160 
1100 PRINT AT x,u;" ": LET y=y+1 
IF SCREENS (x,9)<20 " TMEN 80 
2008 
50 TO 159 
PRINT AT x.y; ": LET_Ox=x=1 


SCREENS tx,Y)< 
Qa 












BEEP 
.5,-19 


BEER -57,+10' 5 
> DEEP. «Gia 
.«4,-13% BERP 1,-d2 
INK 2; PAPER 2;AT »,* 





ces THEN LET hs 

3018 FLASH 1;AT:0,18. “Otra 
3422 THEN 60 TO 60 
3025 





El objeto del juego es que su 
escarabajo no sea encerrado por 
la maquina. Los movimientos 
estan descriptos en el programa. 


NOTA GRAFICA: 
GRAPHICS "A” escarabajo 
GRAPHICS "B" cuadro de la 
linea 100 











1000-1500 








“B£+-=.5" CINTO (RN 










" THEN GOTO 200 
THEN GOTO 10 


THEN LET_1 
E OR ZT513 
THEN_LET 
2 AND 2$(11="> 


AND 23$111=25 





Maquina de frutas. 


OBTUVO"; 
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TS 1908-1500 


El programa le mostrara continuasente una seleccion de 
tres caracteres, y Ud. podra presionar una tecla cuando sea 
ispresa una combinacion ganadora. Si es lo suficienteaente 
rapido su puntaje se incrementara rapidamente, ya que el 
puntaje depende de cuantas combinaciones haya sido capaz de 
parar. Las combinaciones ganadoras son; 

+77 paga 2 

+4? paga 10 

cual quiera que tenga 2 caracteres ¡iguales paga 5 
E a E E texcepto 447) 

ESO <1 TneÑ LET F=1 Cualquiera que tenga 3 caracteres paga 50 
SCROLL Inicialmente puede elegir la velocidad para 
PRINT “"+*+TI + seleccionar. Presione *Q* para hacer su score. Si Ud. 


TODO presiona "9* cuando esta seleccionando perdera 10 puntos. 















16 K: si posee expansion a 16 K agregue este programa. 





> O 


Unstiversales 


Este programa produce 
patrones graficos al azar. Hay 
mas de dos millones de disenos 
que pueden verse en pantalla o 
imprimirse. Cada patron tiene un 
numero y una longitud de string 
impresas en el fondo. Con esos 
datos puede ser llamado 
nuevamente. Responda que NO 
cuando le pregunta por patrones 
al azar y entre esos numeros. 


A 
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p rr: 


USO BEEP_.3. 

.3,15: GO o? 10 
ERE FOR f=1 TO 4: LE 
: BEEP 0,2 Poo B 
BEEP 0,8 
BEEP 0,14 




















PRINT 
ES; PA 



























BEEP 0/4 
o 
7: "cLs 
15 PRINT AT pel hs A 27 
Er ARES eN E , Ned + eo Ta 
ARRIBA", "(MÍ --ABAJO 2 
$8 BARCO A 150 FOR f=5_T0_14 STEP 6: PRINT 
FAA E ELO ¿AT Of 8 PAPER 3;"+";AT 1,23; PA 
SOJeRINT AT 18,2; "PRESIONE pic PER 4637: NEXT f 
UNA TECLA PARA EMPE 181. 10 13 STER_6: PRINT 
ZAR": PAUSE a _A in PAPES, 313" 807€, 215 P 
S1 REM vr+rrrrossritisrirris- Ao Spee $0 TO 200, 
sz REY % "a". en lineas + PE e 255: POKE 2367 
+ 210,240 y 260 de- = Aus Me 
ER REM % ben escribirse en +: ES 38: 295 INK. 2: ¿A 
5 + MODO GRAFIC E 
55 REM +199++3 tooo ER A as Ep 
90 LET q=i La=] te ; m Tr 2 “TIEMP. 
p=1: BORDER ARE NK 8: € cl, y A 
Ls y : 
100 FOR_ 1 34: ¿PRINTAT 4,7 > y > 
E > . 4 s : E: € 10 ESE E , pa A 
s E pe 
i , " == q e EY t LE 
= 4 Pogz + «BM 2 
Ca a - F at F Y CACA LINEES 
as y E ' PEE? bj = "+0 THENCFE 
Eo A h. + : TO 75 PE 2 bi FLOSM 
MN AER E : , P O :09.ANDEZ 
PRPE A 3 5 y T ¿ 5 
pl £ ok ; - F La 3 i 
j E 3 ¿BT 6. FOR , : ¿Q02 ¿END 
ds , z EER > OBS AND: 
; z E Fo NEXT OF. 
BORDER 7. PAPER NK a: COLS 
A 
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USAR "A"+a,n: 
1010 DATA 60,548,50 
02,102 S 
2900 BORDER 7: PAPER 
T_q=1 


3000 
Usos 
3003 

: 3004 

T az 
BEEP_a 
2: BEER 
3,-2 





a 


F 
5000 SAVE “carrera” 
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Usted esta en la largada de 
las 500 millas de 
SINTAXNAPOLIS, donde por 
supuesto Ud. es el favorito. 
Tipee el juego y pronto estara 
manejando alrededor de la 
pista atravesando las chicanas 
tratando de llegar al final 
con el mejor tiempo. Si choca 
contra las barras se deslizara 
fatalmente. Los controles e 
instrucciones estan en el 
programa. Fara calificarse en 
el campeonato debera tener por 
lo menos un SCORE de 32 
segundos. 


NOTA GRAFICA:el auto se dibuja 
con GRAFHICS "A" 





RRFRAFRAARFARARRAA 
+ z + 
1.2% 


> 
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sk 
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Ez 
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CUENTAS PERSONALES 


CUENTAS 
PERSONALES 


Este programa, el cual llevara todas las cuentas de su casa, le ahorrara tiempo, pero ese no es el beneficio mas 
importante que este paquete ofrece. La siguiente lista de trabajos puede ser codificada en el programa y cargarla le 


lMevara solo unos segundos. 








TRABAJOS QUE SERAN COMPUTADOS 


1- Archivos con detalle de los pagos regulares y los datos de cuando caera su vencimiento. 
2- Los cheques que seran deducidos proximamente. 

3- Recordar los proximos pagos y ver que no se haya olvidado de agregar alguno. 

4- Decidir cuando sus cheques por salario seran agregados, y costos fijos deducidos, 

5- Permitir la posibilidad de pagos especiales dentro y fuera de las cuentas ya establecidas. 
b- Hacer convenios para cambiar los costos fijos. 


Para hacer siempre el trabajo, el programa deduce los costos fijos el mismo dia del mes en que acredita el salario, 


Se ha usado como dia de pago el 25 de cada mes. 

La maquina decide cuando preguntar por el aonto del cheque de pago basandose en dos datos, buscados en la aesoria, 

Los datos entrados antes de dar el RUN al programa son recordados por la maquina y los nuevos datos se los 
preguntara ni bien Ud.haya cargado el programa. La prisera parte del programa es un sistema para el manejo de caja, 
Puede ser cargado desde el cassette y podra usarlo como base de este programa, 

La seccion siguiente al manejo de caja es el menu principal, el que aparecera en pantalla tan pronto como Vd. 


ternine de cargar el programa. 





La linea 290 hace que se retorne al menu, pues la seleccion hecha no esta contenplada en el senu. 
La proxima seccion d 


La proxima seccion de codigos es opcional y es auy larga. Es factible que la primera vez que Ud. corra el 
programa, ella elija por si sola, pero eso no sucedera de nuevo, y le proporcionara un buen espacio. Una alternativa y 
un aetodo eucho sas simple para elegir el sistema dado despues de listarlo pero ello desanda el uso directo de comandos 


y la inexperiencia de no usarlo sera facilaente superada. 
Si Ud. decide no incluir la seccion del programa de exposicion del sistema, lo mismo podra encontrar el resto del 


listado mas claro que si lo hubiera hecho a traves de el. 
En el texto son incluidos algunos detalles sobre aleacenamiento de datos y cobranzas. 


o 
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Este programa permite llevar cuenta de hasta 10 costos fijos para ser pagados por mes, 10 que son pagados 
trisestralmente, y 10 que sean pagados una vez al año. 
Los datos seran cargados en forma de vectores que seran definidos de la siguiente forma: 
¿400B0IM 0(18: 
410 DIM Ni10) 
420 DIM M(18* 


Para cargar los elenentos de los vectores se usan dos loops. Un loop se maneja con la letra *X*, y el otro es 
controlado con la letra "J*, 


Las siguientes son las lineas en BASIC que hacen ese trabajo. 





¿30BFOR TO 3 

440 FOR TO 10 PredN 
450 IF K=1 THEN PRINT "MENSUALM 
ENTE"; 

460 1F KA2 THEN PRINT “CUATRIME 
STRALMENTE*; 


470 IF K=3 "THEN PRINT “ANUALMEN 
TELS 
450 PRINT "NO HAY ORDEN FIJA+' 


lso GOsUE 19 
500 IF A/l=98 THEN N 





Esta seccion 1aprime las respuestas. 

La maquina le preguntara por el monto de cada costo fijo, uno por vez. Si Ud. responde con cero, entonces asunira 
que todos los costos fijos del ses han sido entrados antes y pasara a pedirle los costos fijos trimestrales. 

Si los 10 costos fijos trinestrales han sido entrados la maquina automaticamente pasara a pedirle los costos fijos 
anuales, 

La maquina usa los valores cargados en *K" para decidir que es lo que hace. 





Si "K" no es igual a dos o tres o aun a cuatro, entonces elegira uno de los montos de pago que fue cargado en el 
vector M elesento J. El arreglo esta cargado con informacion sobre pagos mensuales. 


añ 
Le] 





El proximo trabajo es cargar el aonto de los pagos trimestrales y el aes durante el cual deberan ser pagados; ambos 
son alsacenados en la misma variable. 

Supongamos un sonto regular de $a 999.99, entonces si a este monto lo dividimos por mil, el resultado sera menor 
que uno. Ási si Ud. debe pagar $a 103.75 el valor almacenado sera 0.10375, 

Si entonces el nunero del aes para el proximo pago es agregado al elesento, para el mes de Diciembre el valor que 
mantiene almacenado sera 12.1035. Para saber el mes se toma el valor entero del nusero; para el monto es un poco mas 
complicado. 
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1) Toma el valor del entero y lo multiplica por 100000 y lama a esto A. 2) Multiplica el valor en el elemento por 
100000 y lo llama B. J)Resta: A-B y divide por 100. 


Veamoslo: 

1) 12+100000=1200000....... ...  «.»A=1200000 
2) 1210375+100000=1210375..... + .«B=1210375 
3) A-B=10375 


Esto parece un poco largo pero en realidad ahorra espacio, y es un buen metodo para extraer informacion. 


oBLET_o 
Y NEXT y 
289 NEXT + 





1000-a 





Es decir si el mes y el monto de pago fueran almacenados en variables separadas tendriamos al menos 100 bytes 
extras para el almacenamiento. 


Otra forma del programa que sigue a continuacion, guarda los valores en un vector (N) que mantiene las ordenes 
anuales, 







di=AJ/1000+A 


Al fin del loop controlado por "K” el contador debe ponerse en 4 y luego el loop no se inicia. La computadora 


reconoce esto como una senal en la linea 530 y salta a la linea 800 donde esta la rutina que muestra el estado de 
"costos fijos”, 





DT 
PL 
Tele T9T3] 


THEN GOTO 498 


Ir a 480, en la linea 630 tiene el efecto de redimensionar los vectores con la misma variable, Habiendo hablado ya de 
la linea 80 es hora que demos Su listado. 


somPRINT 





La linea 84 es compleja pero hubiera sido peor de no ser por la linea B1 que evita el manejo de los "100000*, 
la explicacion ya hecha del almacenamiento y el setodo de extraccion sirve para entender esta linea. 
La linea 900 inicia otro segeento que se basa en otras tres variables para mantener otro dato. 


Este es el dato que debe recordarse desde la primera ejecucion (RUN) a la proxima y es el cual le ayudara a decidir 
cual pago se debe desde la ultima vez que fue usado. 
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EL SIGUIENTE NR 


MENTE EL ULTI 
EN LA CHEQUERA 


NRO. DE PROXIMO 


C" THEN GOTO 1000 


Ecte es el fin de la rutina de "puesta a punto”, una vez usada puede borrarse. 

Cono ya fue mensionado los "costos fijos” pueden no mantenerse fijos en el mismo nivel para siempre. Para ello hay 
una rutina que peraite dichos arreglos. Las lineas desde 1200 hacen uso de la subrutina de la linea 80 para imprimir el 
mapa de "costos fijos". 


izo0BcLs 
1210 PRINT "REVISADO" 
12208 GOSUB 58 


1 
1240 PRINT "QUE ORDEN FIJA?" 


122 CUATRIMESTRE ( 





CcL5s 
300 PRINT "ENTREGAR VALOR CORRE: 





SUB 18 


Ahora la computadora tiene toda la informacion para seleccionar el correcto elemento y guardar el dato en el 
correspondiente vector. Las dos lineas siguientes seleccionan la apropiada rutina de carga. 


HEN 
THEN 





2 


33 
143 


baya 





Mm 

13 o 20 

| 1380 PRINT Ds 
1398 INPUT 

3 1400 LET 01 
1410 GOTO 209 
1430 PRINT D$ 
1449 INPUT 
1459 LET 
1460 € 











hora sigamos con un negocio regular. 









CIONES DESD 


E 305+102-D5) +30+D 
1-b E 2638 
——— 
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Esta ultima linea prevee los cambios por atraso en tiempo. Todo tipo de dificultades pueden surgir. Los salarios 
pueden ser pagados una vez y contados dos. Si el interes debe ser calculado, entonces el nuevo dato no puede ser 
alcanzado por el loop que genera al interes ya que se estaria en un ciclo cerrado. La linea calcula el nunero de dias 
que ha pasado y se niega a-continuar si dicho numero es negativo. 

La proxima seccion es un poco es compleja de escribir. 

“3D3 
5 THEN G0T 
sOSsuUB 2158 


2OspamER INT! D 
2 









LET D6=D6+1 





2 

2118 LET DS=D5-12 
2128 

2138 PRINT SS SALARIO POR mM 
ES" DS;"";D 

2140 GOSuBb 18 

2150 GOSUB 35 


Habiendo decidido cual mes de pago a cargar, la computadora continua decidiendo cual de los "costos fijos" se 
deben, 

Estamos en el nedio de la rutina de busqueda que se inicia en la linea 2130. Esta rutina llama a otras tres, las 
cuales no han sido listadas todavia. La rutina de la linea 90 es la que decide sobre "costos fijos". 


oBcosue se 


RETURN 
IF D4>24 OR D1:<25 THEN GOTO 


mamo 


o 


Mp 


. 
NR 
SA 


m 








130 


ANS 
1) 
ta] 
sa, 


FOR_J=1 TO 10 
101 IF INT N(J)<>DS THEN GOTO 1 


INT N(Y)171000 


105 RETURN 


Vd. debe recordar que unicamente un aes del trimestre en el que debe ser pagado el "costo fijo" puede ser cargado 

el arreglo. 

La seccion del programa que comienza en la linea 120 usa ese aes para chequear el nuaero de mes si alguno de los 
otros tres no han aparecido. Si el presente nusero de mes, cargado en la maquina, es alguno de los cuatro eses en el 
que debe ser hecho el pago, entonces el programa va a la linea 97 y deduce el pago para el balance. En cualquier otro 
mes, esta seccion es salteada y el control es enviado a la linea 9. 

Los pagos anvales son faciles. Ellos deben ser pagados solo cuando el*INT N(J)* (la parte entera del valor del 
eleaento J del vector N), es igual al nunero de mes presente. 





159 GoTo 
El resto del listado es muy simple, comparado con el resto. 
Prisero, todos los cheques que han sido escritos desde la ultima vez que el balance fue hecho, seran deducidos. Si 
un valor 0 es entrado, la computadora preguntara si el cheque fue cancelado; si la respuesta es "NO" entonces ella 
tonara el "INPUT" como senal de que el ultimo cheque ha sido destruido, y preguntara por los pagos con atraso. 


HEQUERAS 00 
VALOR DEL 
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Todo esto necesita una o dos palabras de explicacion. Si Cl es igual a C2 entonces el proximo cheque es el ultimo 
en la chequera, Si la proxima chequera ya le lego del banco, entonces los datos podran ser cargados despues de pulsar 
la "D*. Si, de otra forma, el banco se demora en enviarle la nueva chequera, Ud. no podra escribir nada y el programa 
seguira con su flujo. 






CcL5 

PRINT_ "TECLEE EL PRIMER NRO 
CHEQUE EN LA CHEQUERA +";C 
INPUT € 
PRINTS 
PRINT * 
INPUT 
PRINT 
GOSUB 72 

IF AS; ls” THEN GOTO 2358 
GOTO 


HORA EL ULTIMO" 


mio De 





Ahora viene la rutina de cancelacion de cheques: 


UN CHEQUE 


24s50B9eRINT y 
C,DE OTRA FORM 


$ 
CANCELADO TECL 


THEN LET C1=01+1 
THEN GOTO 2298 





Ahora que todas las posibilidades ya han sido ingresadas, comenzamos el balance con la linea 2490. 


2490mMcosuB 45 
2500 PRINT “PASO 
- NTE” 
2510 PRINT 
2520 PRINT “TECLEE VALOR DEL NRO 
PAGO ATRASADO", CS 
GOSUB 18 
1F AU=8_ THEN SOTO 2680 
5 S 


EN CTA. CORRIE 


m7 








s6u 
2578 





Y ahora los pagos especiales que le hagan o que Ud. haya hecho sobre sontos que no han sido trabajados con cheques. 
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+I 1000-1300 CUENTAS PERSONALES TS “2068 /EPECTR La 
PEA A 


Finalmente, la rutina de coienzo autcaatico sera iapresa despues del balance general. 


L5 
RINT TAB 8: “BALANCE ESPECI 
RI 


Lan): 


“PREPARE EL 


"TECLEE ¿ENTER" 


L 
m5 
D 
ana 
On 
De 
v-4 


IEDOAAER ATA 
DIGO ar 
3 
um 
D 
D 
15] 


17) 
7] 
e] 
r 
Y 





Qee cLs 
100 SAVE “CAJA” 
112 GOTO 208 


(PTPTATATR 


Si, en cambio, Ud, ha omitido la rutina de inicio, hay tro trabajo por hacer antes de que ell prograww ses corrido 
sin, que aborte. 


PROCEDIMIENTO: PARA: EL. COMIENZO 


Antes. que todo, deletee las: lineas 240 a la 282 de la: seccion del senu y entonces tecles estos comandos sin nuwero' 
de linea, La computadora. ejecutara: en forma: correcta: y: la: informacion sera: recordada: desde: um "RUN" a otro, 
Mire: todo el: listado: para: estar seguro ue toda la: informacion ha: sido: entrada: antes: dé: conenzar,- 
1): LEI Bl=(balance- de: su: banco) /ENTER. 
2) DIM (10) /ENTER» 
3) DIM-N(10), 
4) DIM: 0(19)/ENTER» 
5) LET D4=(nuaero de dia)/ENTER, 
6) LET: D5=(nunero: de: nes) /ENTER. 
7) LET Dós(los dos ultimos digitos del: ano)/ENTER, 
Teclee- 60:70:200 y. el menu principal aparecera. Presione: *C* para: cambiar los costos: fijos: y: luego cambie por cero 
y nes cero los montos pagables y el mes en que vence el pago. 
Los pagos trimestrales necesitan solo un nunero: de aes, no cuatro. 
Su programa esta listo para correr, 


VARIABLES: USADAS 


Para. el nanejo-de-cajas 
Al ajuste de caja 
As: para seleccionar 
BL: balance 
Di nunero.de dia 
D2 nunero.de-mes: 
D3nunero.de-año- (solo 10s-dos-ultinos digitos) 


Variables especificas: 
Bs. variable-de-seleccionpara-ser-usada:cuando AS pernanezca-fi jo 
A. cualquier-input' que-noosea peraanente 
D4 nes de. venciaiento 
C: nuaero-de-chequera 
Cl nuaero del proximo-cheque 
C2 ultimo-cheque-en- la chequera 
Cionuaero del proximo. pago atrasado 
D4:a Dá:para cargar datos-secundarios 
dy K:contadores 
1> ajusta matenaticanente-a 100000 
0, Ny Miarreglos disensionados-en-10 para cargar-1os-costos-fijos 
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5 

Q GOsuB 330 
5 LET mM=02 
0 FOR I=i TO 
0 LET_A(I)=0 
2 
a 
a 


m 


NEXT_1 
FOR I=1 TO 1 
LET R=RND+165 


a ? 
50 LET_A(R)=1 
90 NEXT _I 

1098 GOSUB 58a 
110 IF F=1 THEN GOTO 20 
120 GOS5uB 6893 


EA 


5 
0 THEN GOTO 62 


REM MOSTRAR TABLA DE JUEGOS 
3 CL5 
PRINT "QUINCE PULSOS" 





130 PRINT PRINT 
140 PRINT “SU JUGADA' EET. I=4 

158 INPUT x Eo 

152 LET FOR Y=1 TO 

155 IF_X=0 THEN STOF IF ACI «IB THEN PRINT " "; 





IF A(I)=16 THEN _PRINT A 
IF NOT AtI3=18 THEN PRINT A 


45 PRINT = *; 
59 LET_I=1+1 


1560 GOSUB 498 
174 GOSUB_798 





190 PRINT C; "JUGADA ILEGAL ,VWEL 
VA A JUGAR” 

200 GOTO_158 

210 LET A(X+F)=R1x) 





O 7 ¿THEN RETURN 
REM PROsAR PARA JUGADA LEGA 


LET F=9 

IF X+1>16 THEN GOTO 725 

IF A(X+1)=18 THEN LET F=1 
IF xX-1< OR X-1=0 THEN GOTO 


ze =16_THEN_LET F=-1 
IF 
IF 
IE 


IF 










OR x-4=0 THEN 
=16 THEN LET F=-á4 


GOTO 





FOR 
1 NOT AtIli=I THEN GOTO 240 
NEXT_I 

cosuB 5008 

PRINT 

PRINT 

PRINT "LE LLEVO SOLO"; _M; 





Este programa es úe un juego que fue inventado por Sam Loyd en 1878 y que consiste de una matriz de 4%4 que tiene 
15 bloques sin nuserar. El objeto del juego es terminar con todos los bloques numerados. Suena facil pero no lo es. 

No todas las combinaciones de comienzo factible son; 20, 922, 789, 888, y 000, asi que el juego las chequea. Si no 
es su jugada de comienzo la computadora blanquea el display antes que Ud. pulse. Es por ello que antes de mostrar 
cualquier cosa en pantalla se demora algunos segundos. El programa tambien chequea por movidas ilegales en cada entrada. 

Con cada entrada, la computadora chequea para ver si gano. Si Ud. lo hace ella lo felicitara y le dira cuantas 
jugadas le tomo hacerlo. 

Si logra frustrarlo, pulse 0 Icero) y el juego tersina. 

¡€_-E Aá<=<á<== e 
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"50 DATA 
560 DATA 


70 DATA 
3,15 
, 38 FOR i=144 TO"149: FOR ¿=0 T 
30 READ a: POKE USR CHRS i4y 
180 NEXT j: NEXT_¿ 
¿10 BOR ER 4: PAPER 4: INK 0 
5 
DIM b(17): LET 


0 


le) 


120 DIM-316,7) 






A E TO 52: L 





ET añ= SSG4CHAS i 
140 PRINT AT_11, O sárasaNDO 
158 FOR I=1 TO 52 
160 LET w=INT -(RND+52+1) 
170 IF CODE a$íwi<>0 THEN 60 TO 


180 LET w=w+1: IF w=53 THEN LET 


198 GO_TO 178 
200 LET b=b$+CHRsS w 
210 LET_a5(wi=CHR5 0 
220 NEXT i 

LET 


=T_bfi)=CODE b$(a) 

320 £LS_: PRINT * 

TO 7: PRINT STRS i; 
PRINT 








60 SUB sue 
350 PRINT " *; 
368 NEXT_ú 
370 PRINT 








i E 3 á4 Ss 5 











Pe] 7 











PTE 





«nm 


monton: 16 


La idea es sacar todas las 
cartas de la pila del costado. 
Una carta se puede sacar si es 
la anterior. o la posterior a la 
carta que esta en la pila. 
Ejemplo:si en la pila hay un 4 
se puede sacar de las columnas 
un 3oun 5. De cada columna 
solo se puede sacar la ultima 
carta. Para hacerlo presione la 
tecla correspondiente al numero 
de columma de la que quiere 
sacar. Si no tiene ninguna 
posibilidad de sacar cartas 
debera pedir una del monton 
presionando el O (cero). El 
juego termina cuando logro dejar 
vacias todas las columnas de 
cartas o bien porque ya no le 
quedan mas cartas en el monton 
(tiene 16 cartas para todo el 
juego). Buena suerte! 


NOTA GRAFICA:los graficos se 
obtienen de: 


GRAPHICS "A" corazon 
GRAPHICS "B” diamante 
GRAPHICS "C" trebol 
GRAPHICS "D" pica 
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a- 13) 
AND NOT e E 2 
£ AND w=21+1"4" AND 





EL X 
IF a$:"0" OR as 


S30_LET _c=UAL a$: IF NOT c THEN 

GD TO 730 

540 IF a(1,c)=1 THEN BEEP 1,0 

G0_TO 510 

S50 LET a=ala(l, “es GO Sub 8 
SUb son 


2: IF w>1 THEN INK O 
W=a-w313 
w«>1 THEN LET b 


AND w=101+(%J" 
AND wWw=121+("k" An 
"A" AND wWs1). RETURN 
=b: 60 SUB 5080: PRINT 
¿ PAPER 4:" PRI 











” 














2 Ec 8,2 a 
HEN G ET 10D ñ 
THEN 60 TO FOR 121 2,7 16: PR 
THEN BEEP 1 T E PAPER 
590 PAPER 2: INK 7: FOR i=12 TO 

21: 60 sue s PRINT AT 1,29,"FFF"; NEXT dá 





PER 7: RETUR 
FOR n=8 TO 
INPUT fila: POKE USAR “E"+n, 





LET aí1 


¿Cd 
€) -1)+3+1 
a 





LET asa la 11,c),c): GO SUB 8 NE 
00 LET c=(c-1)%441 pon 
640 IF d=1 THEN FOR í=2 TO6: F 
RINTOAT_i),Cc; PAPER 43% “o NEXT 
i_ GO TO 678 





O PRINT_AT d 







PRINT AT 
de nuevo?” 






"m 





LET_a3$=IHREY 
THEN 60 


ñ 
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LET H=8%E 


Es un programa educativo que trata a traves 
de un juego de comprobar que Ud. sabe 
aultiplicar, Lo principal es tomar el tren 
al final de la via dando respuestas correctas 
al problema de multiplicación que se genera 
al azar. Para comenzar el juego presione RUN 
y ENTER, la maquina preguntara por el nivel 
de dificultad que Ud. desea. Cuando el tren 
alcance el final de la via,  .aparecera el 
cartel de "Bien hecho". Las alternativas de 
dificultad pueden ser modificadas, cambiando 
de la linea 50 a la 80. 


NOTA GRAFICA: 


Linea 100- Shift R- 3 espacios- 
Shift B- 1 espacio. 

Linea 110- Shift B- 3 espacios- 
Shift 5, 

Linea 120- Shift R- Shift 
Eespacio- Shift R- Shift E, 


NPUT 'ASs Linea 130- 14 guiones. 
z (AND=20) ? 
(RNDF20) 

(AND+1) 

(RAD+10) 





ERINP AT 3,0; “MANIA 1 OR 2 


CLS £ 
PRINT AT Y,* 
PRINT AT Y+2 
PRINT AT Y+2 
PRINT AT 13,0 


PRINT AT 0,0, “TOMAR AL FINA 












IF. A$="1" THEN PRINT AT 5,0 


A$="2" THEN PRINT AT 5,0 
LET K=C*D 


BIEN 





HECH 
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FROGRAMANDO CON SIMTAX 
qx_E_EÁÓÓD— o 


ENUNCIADO GO TO 


El siguiente es un programa que calcula el producto y el 
cociente de dos numeros, e imprime el resultado. 


10 READ B,C 

20 LET Ali=Bx*C 

30 PRINT "EL PRODUCTO ES" 
Al 

40 LET A2=B/C 

50 PRINT "EL COCIENTE ES” 
AZ 

60 DATA 36,9 

70 END 


Tal como esta el programa, cada vez que queramos repetir el 
calculo para un nuevo par de numeros, tendremos que volver a 
correr el programa con un nuevo enunciado DATA. Seria conveniente 
que pudieramos hacer que la computadora repitiera el calculo con 
otras cantidades, sin nuestra intervencion. Si insertamos la 
linea 


55 GO TO 10 


podemos hacer que el flujo vuelva a la linea 10 cuando llegue a 
la 55, y vuelva a empezar la secuencia del programa con 


10 READ B,C 


Si luego modificamos el enunciado DATA: 


36 DATA 36,9,20,5 


en la segunda corrida la maquina leera para B y Ca, 
respectivamente, los valores 20 y 5 e imprimira el segundo grupo 
de resultados. La maquina repetira los lazos de retorno por todo 
el programa hasta agotar la lista de numeros que le dimos en el 
enunciado DATA, y el programa terminara. y 

Asi pues, "60 TO" equivale a una bifurcacion o transferencia 
en la secuencia de instrucciones (cambia la secuencia normal de 
ejecucion). 


, y 
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e 


ENUNCIADO FOR 


El ciclo FOR es una orden para repetir un conjunto de 
enunciados para cada valor del contador, en el rango 
especificado. Estos ciclos se controlan contandolos, pues se sabe 
de antemano la cantidad de repeticiones necesarias. 


10 FOR I=1 TO 10 
20 PRINT 1 

30 NEXT 1 

40 END 


"1" se denomina contador de ciclo y puede ser cualquier 
variable sin subindice. 

Este enunciado FOR ordena la ejecucion de todos los 
enunciados siguientes hasta el enunciado NEXT, para I=1, I=2, 
etc., hasta I=10. El enunciado NEXT 1 abarca todos los que seran 
ejecutados y repetidos para cada valor de l. Siempre tiene que 
haber un enunciado NEXT correspondiendo a un enunciado FOR. 

Despues del signo igual en un enunciado FOR hay que 
especificar un valor inicial del contador de ciclo. Despues de la 
palabra TO, hay que dar el valor final del contador de ciclo. 
Tanto el valor inicial como el final, pueden especificarse como 
una constante con signo, o sin el, o como una expresion. 

Se supone que el incremento del contador de ciclo es de uno. 
Si se desea un incremento distinto de uno, debera especificarse a 
traves de un STEP. Estan permitidos STEP negativos (cuando 
queremos decrementar el contador). 


10 FOR I=1 TO 10 STEP 2 
20 PRINT 1 

30 NEXT 1 

40 END 


10 FOR I=1 TO N/2 STEP -1 
20 PRINT 1 

30 NEXT 1 

40 END 


Si el valor inicial es mayor que el final y el incremento es 
positivo, o si es menor que el final pero el incremento es 
negativo, no se ejecutara el ciclo. 

El siguiente enunciado que se ejecutara, en tales casos, 
sera el que siga al enunciado NEXT correspondiente. 

Quiza Ud. este pensando en incluir un ciclo FOR-NEXT dentro 
otro; es decir, anidar ciclos (ponerlos unos dentro de otros). 
Esto es posible solo si se lo hace en forma correcta: no deben 
enlazarse ni superponerse en forma parcial y nunca debe quedar 
sclo un enunciado FOR, dentro de un ciclo exterior mas grande, 
sin su NEXT correspondiente. El enunciado FOR siempre debe estar 


— e 
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PROGRAMANDO CON SINTAX 


a 5 5 5 5 5 5 5 5 


acompañado por su correspondiente enunciado NEXT, dentro del ciclo 
mayor » 


10 FOR X=1 TO 4 
20 PRINT X 
; 30 FOR Y=1 TO 3 
40 FRINT Y 
50 NEXT Y . 
60 NEXT X 
70 END 


e ENUNCIADO 1F 


Las decisiones en BASIC, son tomadas a traves del enunciado 


Este consta de tres partes: la palabra IF (el si 
condicional) que identifica el enunciado, una relacion logica que 


IF. 
puede ser verdadera o falsa, y la palabra THEN (entonces) seguida 


A de la accion a tomar cuando la relacion tenga el valor logico 
"verdadero". 

je Las relaciones que pueden usarse son: 

| = igual a 


1] <> no es igual a 

< menor. que 

¿<= menor o igual a 
A > mayor que 

>= mayor o igual a 


Algunos ejemplos: 

240 IF B-4*A>A-C/2 THEN GO ... TO 200 

30 IF D=3 THEN LET C=A+B 

10 IF T<>4 THEN LET A=Bx*T 

80 IF A*C<D THEN GO TO 50 
Las dos aplicaciones mas usuales del enunciado condicional IF 
soni 1) crear una bifurcacion hacia otra parte del programa como 
resultado de una prueba (instrucciones 40 y 80). 


E. 2) incluir o excluir un enunciado intermedio, 
bas aques en el resultado de una prueba (instrucciones 30 y 10). 





EJERCICIOS 
1) Hallar el mayor de un conjunto de 20 numeros e imprimirlo. 


2) Realice la entrada y comprobacion de eco de dos valores, b y 
Nos y halle la raiz de la ecuacion bx+c=0, 
$ i) Si b=0 y c<>0, imprima la salida "bx+c=0 no tiene raiz". 
ii) Si b=0 y c=0, imprima la salida "todo numero real satisface 
la ecuacion” S 
y iii) Si b<>0, imprima la salida "la raiz de bx+c=0 es”, seguida 
o de la raiz. 





a SN 
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PROGRAMANDO CON SINTAX 


SOLUCiON DE LOS EJERCICIOS DE LA EDICION ANTERIOR 





1) 


io 
20 
3O 


40 


60 


70 


10 
20 
30 
40 
50 


60 


READ R 
DATA 2 


PRINT AT1,13"RADIO", 
AT1,115 "PERIMETRO" 
AT1,223 "AREA" 


LET A=2*Pi*(R42) 
LET CIR=2*Pix*R 
PRINT AT3,13R, 
AT3,113CIR, 
AT3,223A 
END 


INPUT A,B 
LET X=Ax*B 

LET Y=A/B 

PRINT AT8,103"X 
PRINT ATB, 205 "Y 
END 
















a 
2 c0TO 
E 


MZ O 


Es una rutina que nos 
peraite ordenar A$ en forma 
alfabetica. Altere las lineas 
9540 y 9770 de acuerdo con el 
nuaero de elesentos que tenga 
AS. Por ejemplo si Ud. 
disensiona A$ como A$(100,15) 
el nusero en ambas lineas es 
100. 


IN 
NOT F 





8 
E=A+F 


E) 


LET B=B+55EN E 


(BD AND 


m1 MD 
Nk 












TS 1000/1500 


GOTO. 95858 


JT 1F/B) 
THEN GOTO -9750 


THEN. GOTO S7 


25901+19620 A 


A11)+(8539 A 
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